Secrets of Stargate/STARGATE.iso/mac/STARGATE (5MB Macintosh)/STARGATE (5MB Macintosh).DXR/00066.ls

Text File | 1994-10-19 | 1.5 KB | 61 lines

on idle
end

on exitFrame
  go(the frame)
end

on enterFrame
  global gOnPC, gMovieStartMod, gSysVol
  if the pauseState = 0 then
    spinCursor()
    set the visible of sprite 35 to 0
    pause()
    puppetPalette(value(the number of cast "TRAILER.PIC Palette"))
    updatePalette()
    set the visible of sprite 35 to 1
    set theVolume to 150
    set theVolume to integer(gSysVol * (float(theVolume) / float(255)))
    set theVolume to integer(theVolume * 1.5)
    if theVolume > 255 then
      set theVolume to 255
    end if
    set the volume of sprite 35 to 0
    set the puppet of sprite 35 to 1
    continue()
    updateStage()
    set the movieRate of sprite 35 to 0.09999999999999999
    set the movieTime of sprite 35 to 180
    stopCursor()
    preRollMov(35)
    set the volume of sprite 35 to value(theVolume)
    set cont to 1
    repeat while cont
      set the movieRate of sprite 35 to 1
      updateStage()
      if the movieRate of sprite 35 > 0 then
        exit repeat
      end if
    end repeat
    set earlyExit to 0
    repeat while the movieRate of sprite 35 > 0
      if the mouseDown = 1 then
        set the movieRate of sprite 35 to 0
        set earlyExit to 1
        exit repeat
      end if
      updateStage()
    end repeat
    spinCursor()
    set the movieRate of sprite 35 to 0
    set the visible of sprite 35 to 0
    set the puppet of sprite 35 to 0
    puppetPalette(0)
    updateStage()
    wait(10)
    spinCursor()
    dissolveEffect()
    go("Intro4")
  end if
end